home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 November / 64er_Magazin_84-11_1984_Markt__Technik_de.d64 / list 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  364b  |  15 lines
  1. 10 rem ****************************
  2. 11 rem *                          *
  3. 12 rem *  interpretercodetabelle  *
  4. 13 rem *                          *
  5. 14 rem ****************************
  6. 20 a=0:b=33762
  7. 30 a=a+1:if a=128 then b=41118
  8. 40 if a=204 then end
  9. 50 print:print a,
  10. 60 print chr$(peek(b) and 127);:b=b+1
  11. 61 if a<128 and peek(b)<>64 then 60
  12. 62 if a>127 and peek(b-1)<128 then 60
  13. 70 if a<128 then b=b+1
  14. 80 goto 30
  15.